home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Workspace / Locus / Source / PSWraps.psw < prev    next >
Text File  |  1995-06-12  |  1KB  |  65 lines
  1.  
  2. /*
  3.     Copyright 1993  Jeremy Slade.
  4.  
  5.     You are free to use all or any parts of the Locus project
  6.     however you wish, just give credit where credit is due.
  7.     The author (Jeremy Slade) shall not be held responsible
  8.     for any damages that result out of use or misuse of any
  9.     part of this project.
  10.  
  11. */
  12.  
  13. /*
  14.     Project: Locus
  15.  
  16.     File: PSWraps.psw
  17.  
  18.     Description:
  19.     
  20.     Contains PS Wraps used within Locus
  21.     
  22.     Original Author: Jeremy Slade
  23.  
  24.     Revision History:
  25.         Created
  26.             V.101    JGS    Fri Mar 12 21:22:00 GMT-0700 1993
  27.  
  28. */
  29.  
  30. /* Initialize bound definitions of PostScript routines */
  31. defineps PSInitWraps()
  32.  
  33.     % PSsettier -- Set a window's tier level
  34.     %
  35.     % Tiers can range from 1 to ?, with the special levels being:
  36.     %    0    Standard window level
  37.     %    3    Floating panel level
  38.     %    5    Dock level
  39.     %    x    Menus
  40.     %
  41.     % NOTE: The window number must be its global PS window number
  42.     /settier { % level window
  43.         setwindowlevel
  44.     } bind def
  45.         
  46.     % PSshowxy -- Show a string at the location
  47.     /showxy { % string x y
  48.         moveto show
  49.     } bind def
  50.  
  51. endps
  52.  
  53.  
  54.  
  55. defineps PSsettier ( int level, window )
  56.     level window setwindowlevel
  57. endps
  58.  
  59.  
  60. defineps PSshowxy ( float x, y; char *string )
  61.     (string) x y showxy
  62. endps
  63.  
  64.  
  65.